Group=Cut
Name=|R|Rg
Init=coord=0;\nvTplane=1;\n?a1,|R|RTCY,1,50,10;\n?a3,|R|R,0,20,1;\na3=(20+a3)/20;\na2=a3*a3*a1*a1;\ncx=cy=0;\n
Prog=b1=x-2*a1*int(x/(2*a1))-a1;\nb2=a1*a3-sqrt(a2-b1*b1)-0.45;\nif(b2>y){\nT=0;\n} \nif((ys-1)-b2<y){\nT=0;\n} \nb3=y-2*a1*int(y/(2*a1))-a1;\nb4=a1*a3-sqrt(a2-b3*b3)-0.45;\nif(b4>=x){\nT=0;\n} \nif((xs-1)-b4<=x){\nT=0;\n} \n